home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The Casino• / •Las Vegas• / Pokeno ••• / Pokeno еее.rsrc / CODE_3.txt < prev    next >
Text File  |  1987-06-09  |  16KB  |  286 lines
  1. # near model CODE resource
  2. # jump table entries: 64-75 (12 of them)
  3. export_10:
  4. 00000000  2F17                     move.l     -[A7], [A7]
  5. 00000002  2F7C 0004 0C00 0004      move.l     [A7 + 0x4], 0x40C00
  6. 0000000A  4EFA 0152                jmp        [PC + 0x152 /* 0000015E */]
  7. export_18:
  8. 0000000E  2F17                     move.l     -[A7], [A7]
  9. 00000010  2F7C 0800 0484 0004      move.l     [A7 + 0x4], 0x8000484
  10. 00000018  4EFA 0144                jmp        [PC + 0x144 /* 0000015E */]
  11. export_8:
  12. 0000001C  2F17                     move.l     -[A7], [A7]
  13. 0000001E  2F7C 1000 0808 0004      move.l     [A7 + 0x4], 0x10000808
  14. 00000026  4EFA 0136                jmp        [PC + 0x136 /* 0000015E */]
  15. export_14:
  16. 0000002A  2F17                     move.l     -[A7], [A7]
  17. 0000002C  2F7C 1800 040C 0004      move.l     [A7 + 0x4], 0x1800040C
  18. 00000034  4EFA 0128                jmp        [PC + 0x128 /* 0000015E */]
  19. export_19:
  20. 00000038  2F17                     move.l     -[A7], [A7]
  21. 0000003A  2F7C 2400 0480 0004      move.l     [A7 + 0x4], 0x24000480
  22. 00000042  4EFA 011A                jmp        [PC + 0x11A /* 0000015E */]
  23. export_15:
  24. 00000046  2F17                     move.l     -[A7], [A7]
  25. 00000048  2F7C 2C02 0484 0004      move.l     [A7 + 0x4], 0x2C020484
  26. 00000050  4EFA 010C                jmp        [PC + 0x10C /* 0000015E */]
  27. export_13:
  28. 00000054  2F17                     move.l     -[A7], [A7]
  29. 00000056  2F7C 3402 0488 0004      move.l     [A7 + 0x4], 0x34020488
  30. 0000005E  4EFA 00FE                jmp        [PC + 0xFE /* 0000015E */]
  31. 00000062  2F17                     move.l     -[A7], [A7]
  32. 00000064  2F7C 3C04 040C 0004      move.l     [A7 + 0x4], 0x3C04040C
  33. 0000006C  4EFA 00F0                jmp        [PC + 0xF0 /* 0000015E */]
  34. 00000070  2F17                     move.l     -[A7], [A7]
  35. 00000072  2F7C 4404 0410 0004      move.l     [A7 + 0x4], 0x44040410
  36. 0000007A  4EFA 00E2                jmp        [PC + 0xE2 /* 0000015E */]
  37. 0000007E  2F17                     move.l     -[A7], [A7]
  38. 00000080  2F7C 4C02 0894 0004      move.l     [A7 + 0x4], 0x4C020894
  39. 00000088  4EFA 00D4                jmp        [PC + 0xD4 /* 0000015E */]
  40. 0000008C  2F17                     move.l     -[A7], [A7]
  41. 0000008E  2F7C 5402 0498 0004      move.l     [A7 + 0x4], 0x54020498
  42. 00000096  4EFA 00C6                jmp        [PC + 0xC6 /* 0000015E */]
  43. export_16:
  44. 0000009A  2F17                     move.l     -[A7], [A7]
  45. 0000009C  2F7C 5C00 089C 0004      move.l     [A7 + 0x4], 0x5C00089C
  46. 000000A4  4EFA 00B8                jmp        [PC + 0xB8 /* 0000015E */]
  47. export_12:
  48. 000000A8  2F17                     move.l     -[A7], [A7]
  49. 000000AA  2F7C 6500 1480 0004      move.l     [A7 + 0x4], 0x65001480
  50. 000000B2  4EFA 00AA                jmp        [PC + 0xAA /* 0000015E */]
  51. 000000B6  2F17                     move.l     -[A7], [A7]
  52. 000000B8  2F7C 6F04 0C80 0004      move.l     [A7 + 0x4], 0x6F040C80
  53. 000000C0  4EFA 009C                jmp        [PC + 0x9C /* 0000015E */]
  54. 000000C4  2F17                     move.l     -[A7], [A7]
  55. 000000C6  2F7C 8000 0000 0004      move.l     [A7 + 0x4], 0x80000000
  56. 000000CE  4EFA 008E                jmp        [PC + 0x8E /* 0000015E */]
  57. 000000D2  2F17                     move.l     -[A7], [A7]
  58. 000000D4  2F7C 8800 0000 0004      move.l     [A7 + 0x4], 0x88000000
  59. 000000DC  4EFA 0080                jmp        [PC + 0x80 /* 0000015E */]
  60. 000000E0  2F17                     move.l     -[A7], [A7]
  61. 000000E2  2F7C 9004 0000 0004      move.l     [A7 + 0x4], 0x90040000
  62. 000000EA  4EFA 0072                jmp        [PC + 0x72 /* 0000015E */]
  63. 000000EE  2F17                     move.l     -[A7], [A7]
  64. 000000F0  2F7C 9802 0000 0004      move.l     [A7 + 0x4], 0x98020000
  65. 000000F8  4EFA 0064                jmp        [PC + 0x64 /* 0000015E */]
  66. export_9:
  67. 000000FC  2F17                     move.l     -[A7], [A7]
  68. 000000FE  2F7C A000 0E00 0004      move.l     [A7 + 0x4], 0xA0000E00
  69. 00000106  4EFA 0056                jmp        [PC + 0x56 /* 0000015E */]
  70. 0000010A  2F17                     move.l     -[A7], [A7]
  71. 0000010C  2F7C A800 0000 0004      move.l     [A7 + 0x4], 0xA8000000
  72. 00000114  4EFA 0048                jmp        [PC + 0x48 /* 0000015E */]
  73. 00000118  2F17                     move.l     -[A7], [A7]
  74. 0000011A  2F7C B000 0000 0004      move.l     [A7 + 0x4], 0xB0000000
  75. 00000122  4EFA 003A                jmp        [PC + 0x3A /* 0000015E */]
  76. export_11:
  77. 00000126  2F17                     move.l     -[A7], [A7]
  78. 00000128  2F7C B802 0000 0004      move.l     [A7 + 0x4], 0xB8020000
  79. 00000130  4EFA 002C                jmp        [PC + 0x2C /* 0000015E */]
  80. 00000134  2F17                     move.l     -[A7], [A7]
  81. 00000136  2F7C C000 0200 0004      move.l     [A7 + 0x4], 0xC0000200
  82. 0000013E  4EFA 001E                jmp        [PC + 0x1E /* 0000015E */]
  83. export_17:
  84. 00000142  2F17                     move.l     -[A7], [A7]
  85. 00000144  2F7C C800 0000 0004      move.l     [A7 + 0x4], 0xC8000000
  86. 0000014C  4EFA 0010                jmp        [PC + 0x10 /* 0000015E */]
  87. 00000150  2F17                     move.l     -[A7], [A7]
  88. 00000152  2F7C D000 0000 0004      move.l     [A7 + 0x4], 0xD0000000
  89. 0000015A  4EFA 0002                jmp        [PC + 0x2 /* 0000015E */]
  90. fn0000015E:
  91. 0000015E  4E56 0000                link       A6, 0
  92. 00000162  48E7 0018                movem.l    -[A7], A3,A4
  93. 00000166  7200                     moveq.l    D1, 0x00
  94. 00000168  122E 0008                move.b     D1, [A6 + 0x8]
  95. 0000016C  E609                     lsr        D1.b, 3
  96. 0000016E  6716                     beq        +0x18 /* 00000186 */
  97. 00000170  4A2E 0008                tst.b      [A6 + 0x8]
  98. 00000174  6B76                     bmi        +0x78 /* 000001EC */
  99. 00000176  7407                     moveq.l    D2, 0x07
  100. 00000178  C42E 0008                and.b      D2, [A6 + 0x8]
  101. 0000017C  661E                     bne        +0x20 /* 0000019C */
  102. 0000017E  7403                     moveq.l    D2, 0x03
  103. 00000180  C438 0946                and.b      D2, [0x00000946 /* ChooserBits */]
  104. 00000184  6016                     bra        +0x18 /* 0000019C */
  105. label00000186:
  106. 00000186  206E 0014                movea.l    A0, [A6 + 0x14]
  107. 0000018A  2050                     movea.l    A0, [A0]
  108. 0000018C  7403                     moveq.l    D2, 0x03
  109. 0000018E  C428 0044                and.b      D2, [A0 + 0x44]
  110. 00000192  0238 00FC 0946           andi.b     [0x00000946 /* ChooserBits */], 0xFC
  111. 00000198  8538 0946                or.b       [0x00000946 /* ChooserBits */], D2
  112. label0000019C:
  113. 0000019C  42A7                     clr.l      -[A7]
  114. 0000019E  2F3C 5044 4546           move.l     -[A7], 0x50444546 /* 'PDEF' */
  115. 000001A4  3F02                     move.w     -[A7], D2
  116. 000001A6  A9A0                     syscall    GetResource
  117. 000001A8  201F                     move.l     D0, [A7]+
  118. 000001AA  660A                     bne        +0xC /* 000001B6 */
  119. 000001AC  31FC FF40 0944           move.w     [0x00000944 /* PrintErr */], 0xFF40
  120. 000001B2  4EFA 0086                jmp        [PC + 0x86 /* 0000023A */]
  121. label000001B6:
  122. 000001B6  2840                     movea.l    A4, D0
  123. 000001B8  204C                     movea.l    A0, A4
  124. 000001BA  A029                     syscall    HLock
  125. 000001BC  41EE 000C                lea.l      A0, [A6 + 0xC]
  126. 000001C0  7000                     moveq.l    D0, 0x00
  127. 000001C2  102E 0009                move.b     D0, [A6 + 0x9]
  128. 000001C6  D02E 000A                add.b      D0, [A6 + 0xA]
  129. 000001CA  9EC0                     sub.w      A7, D0
  130. 000001CC  224F                     movea.l    A1, A7
  131. 000001CE  A02E                     syscall    BlockMove/BlockMoveData
  132. 000001D0  102E 000B                move.b     D0, [A6 + 0xB]
  133. 000001D4  0200 007F                andi.b     D0, 0x7F
  134. 000001D8  2054                     movea.l    A0, [A4]
  135. 000001DA  4EB0 0000                jsr        [A0 + D0.w]
  136. 000001DE  102E 000B                move.b     D0, [A6 + 0xB]
  137. 000001E2  6A04                     bpl        +0x6 /* 000001E8 */
  138. 000001E4  204C                     movea.l    A0, A4
  139. 000001E6  A02A                     syscall    HUnlock
  140. label000001E8:
  141. 000001E8  4EFA 014A                jmp        [PC + 0x14A /* 00000334 */]
  142. label000001EC:
  143. 000001EC  9EFC 0032                sub.w      A7, 0x32 /* '2' */
  144. 000001F0  41FA 0188                lea.l      A0, [PC + 0x188 /* 0000037A, value 0x62E5072, pstring ".Print" */]
  145. 000001F4  2F48 0012                move.l     [A7 + 0x12], A0
  146. 000001F8  3F7C FFFD 0018           move.w     [A7 + 0x18], 0xFFFD
  147. 000001FE  422F 001B                clr.b      [A7 + 0x1B]
  148. 00000202  204F                     movea.l    A0, A7
  149. 00000204  7000                     moveq.l    D0, 0x00
  150. 00000206  0881 0004                bclr.b     D1, 0x4
  151. 0000020A  D241                     add.w      D1, D1
  152. 0000020C  323B 1006                move.w     D1, [PC + D1.w + 0x6]
  153. 00000210  4EFB 1002                jmp        [PC + D1.w + 0x2]
  154. 00000214  0096 009A 009E           ori.l      [A6], 0x9A009E
  155. 0000021A  00A6 00B6 00D2           ori.l      -[A6], 0xB600D2
  156. 00000220  00E6                     .incomplete
  157. 00000222  0108                     btst       A0, D0
  158. 00000224  0112                     btst       [A2], D0
  159. 00000226  0030 0040 0020           ori.b      [A0 + D0.w + 0x20], 0x40 /* '@' */
  160. 0000022C  0020 0020                ori.b      -[A0], 0x20 /* ' ' */
  161. 00000230  0020 0020                ori.b      -[A0], 0x20 /* ' ' */
  162. 00000234  31FC FFCE 0944           move.w     [0x00000944 /* PrintErr */], 0xFFCE
  163. label0000023A:
  164. 0000023A  7200                     moveq.l    D1, 0x00
  165. 0000023C  122E 000A                move.b     D1, [A6 + 0xA]
  166. 00000240  4EFA 010C                jmp        [PC + 0x10C /* 0000034E */]
  167. 00000244  2F3C 8000 0000           move.l     -[A7], 0x80000000
  168. 0000024A  4EBA FF12                jsr        [PC - 0xEE /* 0000015E */]
  169. 0000024E  6656                     bne        +0x58 /* 000002A6 */
  170. 00000250  7200                     moveq.l    D1, 0x00
  171. 00000252  600C                     bra        +0xE /* 00000260 */
  172. 00000254  2F3C 8800 0000           move.l     -[A7], 0x88000000
  173. 0000025A  4EBA FF02                jsr        [PC - 0xFE /* 0000015E */]
  174. 0000025E  7201                     moveq.l    D1, 0x01
  175. label00000260:
  176. 00000260  594F                     subq.w     A7, 4
  177. 00000262  3F3C E000                move.w     -[A7], 0xE000
  178. 00000266  A9BA                     syscall    GetString
  179. 00000268  201F                     move.l     D0, [A7]+
  180. 0000026A  6606                     bne        +0x8 /* 00000272 */
  181. 0000026C  303C FF40                move.w     D0, 0xFF40
  182. 00000270  6034                     bra        +0x36 /* 000002A6 */
  183. label00000272:
  184. 00000272  2240                     movea.l    A1, D0
  185. 00000274  4EBA 00E6                jsr        [PC + 0xE6 /* 0000035C */]
  186. 00000278  4841                     swap.w     D1
  187. 0000027A  3200                     move.w     D1, D0
  188. 0000027C  554F                     subq.w     A7, 2
  189. 0000027E  2049                     movea.l    A0, A1
  190. 00000280  A029                     syscall    HLock
  191. 00000282  2F11                     move.l     -[A7], [A1]
  192. 00000284  A997                     syscall    OpenResFile
  193. 00000286  2049                     movea.l    A0, A1
  194. 00000288  A02A                     syscall    HUnlock
  195. 0000028A  3001                     move.w     D0, D1
  196. 0000028C  4841                     swap.w     D1
  197. 0000028E  4EBA 00CE                jsr        [PC + 0xCE /* 0000035E */]
  198. 00000292  301F                     move.w     D0, [A7]+
  199. 00000294  4A78 0A60                tst.w      [0x00000A60 /* ResErr */]
  200. 00000298  6608                     bne        +0xA /* 000002A2 */
  201. 0000029A  4A41                     tst.w      D1
  202. 0000029C  6704                     beq        +0x6 /* 000002A2 */
  203. 0000029E  3F00                     move.w     -[A7], D0
  204. 000002A0  A99A                     syscall    CloseResFile
  205. label000002A2:
  206. 000002A2  3038 0A60                move.w     D0, [0x00000A60 /* ResErr */]
  207. label000002A6:
  208. 000002A6  4EFA 0084                jmp        [PC + 0x84 /* 0000032C */]
  209. 000002AA  A000                     syscall    Open/PBHOpen/HOpen
  210. 000002AC  607E                     bra        +0x80 /* 0000032C */
  211. 000002AE  A001                     syscall    Close
  212. 000002B0  607A                     bra        +0x7C /* 0000032C */
  213. 000002B2  615A                     bsr        +0x5C /* 0000030E */
  214. 000002B4  2D48 000C                move.l     [A6 + 0xC], A0
  215. 000002B8  6072                     bra        +0x74 /* 0000032C */
  216. 000002BA  6152                     bsr        +0x54 /* 0000030E */
  217. 000002BC  2050                     movea.l    A0, [A0]
  218. 000002BE  1028 0007                move.b     D0, [A0 + 0x7]
  219. 000002C2  4880                     ext.w      D0
  220. 000002C4  3D40 000C                move.w     [A6 + 0xC], D0
  221. 000002C8  6062                     bra        +0x64 /* 0000032C */
  222. 000002CA  216E 000C 0024           move.l     [A0 + 0x24], [A6 + 0xC]
  223. 000002D0  216E 0010 0020           move.l     [A0 + 0x20], [A6 + 0x10]
  224. 000002D6  216E 0014 001C           move.l     [A0 + 0x1C], [A6 + 0x14]
  225. 000002DC  316E 0018 001A           move.w     [A0 + 0x1A], [A6 + 0x18]
  226. 000002E2  A004                     syscall    Control
  227. 000002E4  6046                     bra        +0x48 /* 0000032C */
  228. 000002E6  6126                     bsr        +0x28 /* 0000030E */
  229. 000002E8  2050                     movea.l    A0, [A0]
  230. 000002EA  0828 0006 0004           btst.b     [A0 + 0x4], 0x6
  231. 000002F0  673A                     beq        +0x3C /* 0000032C */
  232. 000002F2  2068 0000                movea.l    A0, [A0 + 0x0]
  233. 000002F6  A049                     syscall    HPurge
  234. 000002F8  6032                     bra        +0x34 /* 0000032C */
  235. 000002FA  6112                     bsr        +0x14 /* 0000030E */
  236. 000002FC  2050                     movea.l    A0, [A0]
  237. 000002FE  0828 0006 0004           btst.b     [A0 + 0x4], 0x6
  238. 00000304  6726                     beq        +0x28 /* 0000032C */
  239. 00000306  2068 0000                movea.l    A0, [A0 + 0x0]
  240. 0000030A  A04A                     syscall    HNoPurge
  241. 0000030C  601E                     bra        +0x20 /* 0000032C */
  242. fn0000030E:
  243. 0000030E  317C 0001 001A           move.w     [A0 + 0x1A], 0x1
  244. 00000314  A005                     syscall    Status
  245. 00000316  2068 001C                movea.l    A0, [A0 + 0x1C]
  246. 0000031A  4E75                     rts
  247. 0000031C  DEFC 0030                add.w      A7, 0x30 /* '0' */
  248. 00000320  3EB8 0944                move.w     [A7], [0x00000944 /* PrintErr */]
  249. 00000324  600E                     bra        +0x10 /* 00000334 */
  250. 00000326  31EE 000C 0944           move.w     [0x00000944 /* PrintErr */], [A6 + 0xC]
  251. label0000032C:
  252. 0000032C  DEFC 0032                add.w      A7, 0x32 /* '2' */
  253. 00000330  31C0 0944                move.w     [0x00000944 /* PrintErr */], D0
  254. label00000334:
  255. 00000334  7200                     moveq.l    D1, 0x00
  256. 00000336  122E 000A                move.b     D1, [A6 + 0xA]
  257. 0000033A  7000                     moveq.l    D0, 0x00
  258. 0000033C  102E 0009                move.b     D0, [A6 + 0x9]
  259. 00000340  670C                     beq        +0xE /* 0000034E */
  260. 00000342  3400                     move.w     D2, D0
  261. 00000344  204F                     movea.l    A0, A7
  262. 00000346  43F6 100C                lea.l      A1, [A6 + D1.w + 0xC]
  263. 0000034A  A02E                     syscall    BlockMove/BlockMoveData
  264. 0000034C  DEC2                     add.w      A7, D2
  265. label0000034E:
  266. 0000034E  4CDF 1800                movem.l    A3,A4, [A7]+
  267. 00000352  4E5E                     unlink     A6
  268. 00000354  205F                     movea.l    A0, [A7]+
  269. 00000356  DFC1                     add.l      A7, D1
  270. 00000358  584F                     addq.w     A7, 4
  271. 0000035A  4ED0                     jmp        [A0]
  272. fn0000035C:
  273. 0000035C  7000                     moveq.l    D0, 0x00
  274. fn0000035E:
  275. 0000035E  9EFC 0040                sub.w      A7, 0x40 /* '@' */
  276. 00000362  204F                     movea.l    A0, A7
  277. 00000364  3140 0016                move.w     [A0 + 0x16], D0
  278. 00000368  42A8 0012                clr.l      [A0 + 0x12]
  279. 0000036C  A015                     syscall    SetVol/PBHSetVol/HSetVol
  280. 0000036E  A014                     syscall    GetVol/PBHGetVol/HGetVol
  281. 00000370  3028 0016                move.w     D0, [A0 + 0x16]
  282. 00000374  DEFC 0040                add.w      A7, 0x40 /* '@' */
  283. 00000378  4E75                     rts
  284. 0000037A  062E 5072 696E           addi.b     [A6 + 0x696E], 0x72 /* 'r' */
  285. 00000380  7420                     moveq.l    D2, 0x20
  286.